home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_129.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  923 b   |  34 lines
  1. property spriteNum, ks
  2. global bpm, curscript
  3.  
  4. on mouseUp me
  5.   ks = 1
  6.   sprite(spriteNum).member.text = EMPTY
  7. end
  8.  
  9. on mouseUpOutSide me
  10.   ks = 0
  11. end
  12.  
  13. on keyUp me
  14.   curscript = "bpm/key"
  15.   if the keyCode <> 36 then
  16.     ks = 1
  17.     if getPos(["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "."], the key) <> 0 then
  18.       sprite(spriteNum).member.text = sprite(spriteNum).member.text & the key
  19.     end if
  20.   else
  21.     ks = 0
  22.     mytext = sprite(spriteNum).member.text
  23.     if (value(mytext).ilk = #integer) or (value(mytext).ilk = #float) then
  24.       mybpm = max(40, min(250, value(mytext)))
  25.       bpm = mybpm
  26.       sprite(spriteNum).member.text = string(bpm).char[1..min(5, string(bpm).chars.count)]
  27.       sprite(57).locH = sprite(57).myleft + ((bpm - 39) / 214.0 * sprite(57).mywidth) + 6
  28.     else
  29.       sprite(spriteNum).member.text = string(bpm).char[1..min(5, string(bpm).chars.count)]
  30.     end if
  31.   end if
  32.   pass()
  33. end
  34.